TPUG - Toronto PET Users Group

home *** CD-ROM | disk | FTP | other *** search

/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs59.d81 / rolodex.arc / ROLODEX (.txt) < prev

Wrap

GEOS ConVerT | 2009-10-10 | 42KB | 665 lines

Rolodex PRG formatted GEOS file V1.0 Super NX-1000 GB DRAW BLASTER'S CONVERTER V2.5 ANIMATION ROLODEX Rolodex V1.0 (C) 1991 RUN Mag. basic geoBasic Copyright (c) 1988, Berkeley Softworks R . ) Rolodex 6#7#8 Roledexsrc `,H004 `,H004 Error I: 9)L/) vqvrvsvtvu u&t&s&r&q$q0 fqfrfsftfu` f|f}f~f z&y&x&w P%p8) q4X>V ; /" 8# )# A! L*0 *L{! * X* L*0: On disk: Insert new disk swap error geoBasic and data file @must be on the same disk Pin a one drive system geoBasic Info MiniDesk geoWizDump ?Extra ignored?RedoT Rolodex V1. (LX* P+L.* OL!SL basic data V1.0 basic Rolodex V1.0 (C) 1991 RUN Mag. basic geoBasic Copyright (c) 1988, Berkeley Softworks Disk full, remove some files Please Select Option: new document existing document to deskTop File exists, choose another. Data file is beyond V1.0 WARNING! This file is write protected. Please enter new filename: Please enter an author name opening file creating file L1Y )# & zY Not enough free space on @disk for desk accessory. running desk accessory AQ.BQ Please reboot your system @using the same GEOS disk Pthat was first used to run `geoBasic Cannot install geoBasic on @this disk. Please refer to Pinstallation directions in `the manual. Cannot install geoBasic on a @write protected disk. Error installing geoBasic geoBasic installed. XLcvX` ; /" `UUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUU LWgLITL] L ]L,]L TLJnL RH K\ )# ZT cHL)# cHL)#L U E\ ? 2UL9 <` PUL$ PUL* K\ .k +_X` )#L<W ] )# tL/#L H\ W K\ X ?\ ; M\ Cf tf L+[,= L/Z 'Yh +_ /# x K\, X* z* Q )# hhL~W W H\ H uo 9]H \\ B! [ 9]H ] ]L hhhhh hLZT )# K\H #kh 8k /# )# `` [ 9]H Ghhh /#L 6^ #k h G]L 6^ #k hhhhh`h [ 9]H L ]LZT( \\ H B! l{VvV~^ l!jMj SJ^@Uy U+UIU:UXl bX]?n5na Cf /#LHd e )#LHd )# Bf mg BfLmg 6f dh vh hL9W [ E\h ` /#H #kh j )#8 ] io 1k oo ; /" H\ PU E\ -n` .n m jnp D_Rolodex V1.0 Rolodex ] )# 1k &cH8 &cL,c Rolodex 6#7#8 Roledexsrc Lxp ' K\XhhL !<@DILPTX\`dhly qLTpL qLFpL(tLntL`tLfsL6tL pL|t X` /# X` 6t H prh [ 6t X` 6t oLXpL pLSqL info$ By William Coleman Copyright 1990 RUN Magazine Delete this Record? Delete this Record? >$@KillSprite Are You Ready to Print? Roladex Info @InfoBox close @ClMenu update @UpMenu recover @ReMenu @QuMenu @DecRec @AddRec @DelRec @SeaRec @IncRec prntr @PrintAll There was a Disk Error! Please make a selection: $creat $quit plain$ a new Rolodex an existing Rolodex to the deskTop AddRec ClMenup DError DecRec DelRecx DisplaN DoProc* EButtoV EditBo GetRec GetStr IncRec InfoBoh InitScX KillSp MakeBo. NewAdd NewCit: NewFon NewNam PrintA PrtStrj QuMenu ReMenu Redraw Resume SeaLoo SeaRec" Searchd Start TopDB UpMenu Update error 1 plane creat prntr FALSE ebLeft ebOffs ebLeft ebRight bxL ebLeft bxR ****************************** * geoBasic Roladex * * Copyright (c) 1990 * * RUN Publications * ****************************** Constants plain$ outln$ bold$ DEL$ COMD$ ("d") YES OLD NEW QUIT TRUE FALSE ebLeft ebOffs ebLeft ebRight bxL ebLeft bxR ebRight nmt 50:nmb adt 65:adb cit 80:cib pht 95:phb MAXREC BCKP 7,"roladex",1 info$ bold$ outln$ "Roladex V1.0" plain$ 10,10 %%% Program Starts Here %%% @Start @RedrawScreen @DError @InitScreen @TopDB curRec book$ @GetRec @Resume @EditBox @Display @EButton %%% Initialize the Screen %%% @InitScreen BCKP 0,0,319,199 0,0,319,199 204,0,319,14 204,0,319,14 216,11 info$ "main" @DoProc,255 %%% Redraw Screen After DA %%% @RedrawScreen @InitScreen @Resume %%% Fly the Airplane (proc) %%% @DoProc proc proc proc "plane" 1,700,13 10,10 @KillSprite 1,0,0,0 %%% Do Opening DB %%% @TopDB "top",choice choice QUIT choice NEW "Name of new Book:", book$: book$ @MakeBook choice OLD book$ book$ %%% Create a New book$ %%% @MakeBook book$ MAXREC %%% Disk Error Trap %%% @DError 6,derr derr "error" @Start %%% Insert a New Record %%% @UpdateRec newrec dirty curRec newrec key$ name$: @Search curRec name$,addr$,city$,phnum$ curRec newrec FALSE dirty FALSE %%% Do a Binary Search %%% @Search left 0:right MAXREC (key$) @SeaLoop mid (((right left) left) left found FALSE: curRec right (left last$ key$): last$ plain$ last$ last$ (last$,l) ebLeft,nmt plain$;bold$; "Searching: ";mid 1;" " last$ key$ found TRUE: curRec mid: last$ last$ plain$ right mid: @SeaLoop left @SeaLoop %%% Search Icon Routine %%% @SeaRec @UpdateRec "Enter Search String:", key$ key$ @Search @GetRec @Display %%% Read in a book$ File %%% @GetRec curRec name$ plain$:addr$ plain$ city$ plain$:phnum$ plain$ name$,addr$,city$,phnum$ %%% Draw the Edit Box %%% @EditBox bxL,32,bxR,127 1,33,bxR 1,126 8,127,bxR 8,135 bxR,40,bxR 8,135 "edit" ne Nbr: "plain$ph @Display ebLeft,nmt newrec FALSE plain$;bold$; "Record #";curRec 1;" " newrec TRUE plain$;bold$; "New Record" ebLeft,nmt,ebRight,nmb ebLeft,nmt,ebRight,nmb ebLeft 1,nmt bold$"Name: "name$ ebLeft,adt,ebRight,adb ebLeft,adt,ebRight,adb ebLeft 1,adt bold$"Address: "plain$addr$ ebLeft,cit,ebRight,cib ebLeft,cit,ebRight,cib ebLeft 1,cit bold$"City/State: "plain$city$ ebLeft,pht,ebRight,phb ebLeft,pht,ebRight,phb ebLeft 1,pht bold$"Phone Nbr: "plain$phnum$ @NewFone %%% Menu Routines %%% @ClMenu @UpdateRec @Start @UpMenu @UpdateRec @Display @ReMenu newrec FALSE dirty FALSE @GetRec @Display @QuMenu $ @UpdateRec . %%% Button Handler %%% V @EButton ;` (ebLeft,nmt, ebRight,phb) [j (ebLeft,nmt, ebRight,nmb) @NewName: [t (ebLeft,adt, ebRight,adb) @NewAddr: [~ (ebLeft,cit, ebRight,cib) @NewCity: (ebLeft,pht, ebRight,phb) @NewFone %%% Move to Next Record %%% @IncRec @UpdateRec curRec curRec curRec MAXREC curRec @GetRec @Display %%% Move to Prev. Record %%% @DecRec @UpdateRec curRec curRec curRec @GetRec @Display %%% Delete a Record %%% @DelRec TMP$ bold$ "Delete Record? " "qstn",i curRec MAXREC @GetRec @Display %%% Add a Record %%% @AddRec @UpdateRec "Enter record (1-126):", TMP$ curRec (TMP$) curRec curRec curRec @GetRec "bar" @Display %%% Info Box %%% @InfoBox "info" %%% Edit Fields %%% @NewName ebRight ebOffs s$ name$: @GetString 3030 name$ newrec TRUE: name$ @Display @NewAddr ebRight ebOffs s$ addr$: @GetString addr$ s$: dirty TRUE @Display @NewCity ebRight ebOffs s$ city$: @GetString city$ s$: dirty TRUE @Display "bar" @NewFone ebRight ebOffs s$ phnum$: @GetString phnum$ s$: dirty TRUE @Display %%% Print All Records %%% @PrintAll TMP$ bold$ "Ready to Print? " "qstn",i temp curRec curRec @GetRec name$ addr$ city$ phnum$ curRec curRec curRec name$ plain$ curRec @GetRec @Display %%% String Input Routine %%% @GetString plain$ ebOffs,ty 7,ebRight "bar" 3,4,ty @PrtStr @GSL IFa$=""THEN GOTO @GSL (13) "bar": DEL$ s$ COMD$ s$ "": @GetString (31) s$ @PrtStr @GSL @PrtStr tx,ty s$" "; cx 3,3,cx